home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE Outlook Express 9.xpl < prev    next >
Text File  |  2001-11-27  |  2KB  |  50 lines

  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Outlook Express\System"
  5. "NAME"="Security Zone"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Internet (Medium)"
  8. "TEXT 2"="Local Intranet (Medium-Low)"
  9. "TEXT 3"="Trusted Sites (Low)"
  10. "TEXT 4"="Restricted Sites (High)"
  11. "DESCRIPTION 1"="This plug-in lets you configure which zone Outlook Express should use for HTML emails. Some emails may contain JavaScript viruses or open hard-to-close browser windows, and setting a high security level will stop these from annoying you or damaging your system. It will also stop emails with counters or statistics monitors from 'reporting home' with information about your computer."
  12. "DESCRIPTION 2"="On the other hand, setting a high security level will disable some of the enhanced functionality of HTML emails."
  13. "VERSION"="1.0"
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. ID="HKCU\Identities\Last User ID"
  19. sP1="\Software\Microsoft\Outlook Express\5.0\"
  20. Inf="Security Zone"
  21.  
  22. SUB Plugin_Initialize
  23.  y=RegReadValue(ID)
  24.  if IsEmpty(y)=false then
  25.   sValPath="HKCU\Identities\" & y & sP1
  26.  
  27.   t=RegReadValue(sValPath & Inf)
  28.   if t>0 then
  29.      Call SetUIElement(t,true)
  30.   end if
  31.  else
  32.   Call Disable()
  33.  end if
  34. END SUB
  35.  
  36. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  y=RegReadValue(ID)
  38.  sValPath="HKCU\Identities\" & y & sP1
  39.  
  40.  For g=1 to 4
  41.   s=GetUIElement(g)
  42.   if s=true then
  43.    Call RegWriteValue(sValPath & Inf,g,2)
  44.   end if
  45.  Next
  46. END SUB
  47.  
  48. SUB Plugin_Terminate
  49. END SUB
  50.